 load /nfs/satmag_work/mnair/projects/GIC/Apr_2000_modeling/obs_Apr_2000_all X Y Z name phi_gg theta_gg fday
 
 
 f = figure(1);
 set(f, 'Position',[ 670         427        1188         671]);
 
 for i = 1:size(X,1),
     
     subplot(311);
     plot(fday,X(i,:));
     datetick
     title(name(i,:));
     ylabel('X');
     
    subplot(312);
     plot(fday,Y(i,:));
     datetick
     ylabel('Y');
     
     subplot(313);
     plot(fday,Z(i,:));
     datetick
     ylabel('Z');
     
	  print(gcf,'-append','-dpsc','-r600','-painters',['/nfs/satmag_work/mnair/projects/GIC/Apr_2000_modeling/' name(i,:)]);
clf;
 end;
     